home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d1 / hacker12.arc / HACKROUN.BAT < prev    next >
Encoding:
DOS Batch File  |  1989-12-13  |  4.6 KB  |  164 lines
  1. echo off
  2. rem     ╔═══════════════════════════════════════════════════════════════╗
  3. rem     ║                                                               ║
  4. rem     ║                       H A C K R O U N                         ║
  5. rem     ║                           ver 1.2                             ║
  6. rem     ║                                                               ║
  7. rem     ║       Demonstration routine for HACKER, a programmer's        ║
  8. rem     ║       multi-function shareware utility.                       ║
  9. rem     ╚═══════════════════════════════════════════════════════════════╝
  10. hacker clear;fix cursor /off;note HACKER  demonstration.;sound ruffle;what day>nul
  11. for %%a in (1 2 3) do echo  
  12. set i=Saturday
  13. if errorlevel  6 goto a
  14. set i=Friday
  15. if errorlevel  5 goto a
  16. set i=Thursday
  17. if errorlevel  4 goto a
  18. set i=Wednesday
  19. if errorlevel  3 goto a
  20. set i=Tuesday
  21. if errorlevel  2 goto a
  22. set i=Monday
  23. if errorlevel  1 goto a
  24. set i=Sunday
  25. :a
  26. hacker what time
  27. set j=evening
  28. if errorlevel 170 goto b
  29. set j=afternoon
  30. if errorlevel 120 goto b
  31. set j=morning
  32. :b
  33. echo                      And a Good %i% %j% to you !
  34. rem     Let's keep our environment clean, shall we ?
  35. set j=
  36. for %%a in (0 1 2 3 4 5 6 7 8 9 A B C D E F G) do echo  
  37. hacker clear 15;sound gate;note I shall continue when you press a key.
  38. hacker sound fur /continue; clear 3;note I can signal !;sound also;sound charge
  39. hacker sound horn;sound pipe;sound dive;sound rays;sound alarm;sound alarm
  40. hacker sound siren;sound ride;clear 3;note I can change your cursor !   ;what mode
  41. set i=13
  42. if errorlevel 7 goto c
  43. set i=7
  44. :c
  45. hacker fix cursor 0 %i% /on;wait 1;fix cursor %i% 1;wait 1;fix cursor ? %i%>nul
  46. hacker wait 1;fix cursor /off;wait 1;clear 3;note I can ask silly questions.>nul
  47. echo  
  48. echo  
  49. hacker ask Have you stopped beating your wife ? {Y, N, S} 5
  50. if errorlevel 3 goto d
  51. if errorlevel 2 goto e
  52. if errorlevel 1 goto f
  53. echo                         I would not answer that either !
  54. goto g
  55. :d
  56. echo                               I beg you pardon !
  57. goto g
  58. :e
  59. echo                                   Why not ?
  60. goto g
  61. :f
  62. echo                            Well, it is about time !
  63. :g
  64. hacker wait 1;clear 2;what drive >nul
  65. set i=Q:
  66. if errorlevel 17 goto h
  67. set i=P:
  68. if errorlevel 16 goto h
  69. set i=O:
  70. if errorlevel 15 goto h
  71. set i=N:
  72. if errorlevel 14 goto h
  73. set i=M:
  74. if errorlevel 13 goto h
  75. set i=L:
  76. if errorlevel 12 goto h
  77. set i=K:
  78. if errorlevel 11 goto h
  79. set i=J:
  80. if errorlevel 10 goto h
  81. set i=I:
  82. if errorlevel 9 goto h
  83. set i=H:
  84. if errorlevel 8 goto h
  85. set i=G:
  86. if errorlevel 7 goto h
  87. set i=F:
  88. if errorlevel 6 goto h
  89. set i=E:
  90. if errorlevel 5 goto h
  91. set i=D:
  92. if errorlevel 4 goto h
  93. set i=C:
  94. if errorlevel 3 goto h
  95. set i=B:
  96. if errorlevel 2 goto h
  97. set i=A:
  98. :h
  99. hacker is volume *
  100. if errorlevel 1 goto i
  101. hacker note Your current drive (%i%) has no label.
  102. goto j
  103. :i
  104. hacker note Your current drive (%i%) has a label.
  105. :j
  106. echo  
  107. echo  
  108. hacker what depth
  109. if errorlevel 1 goto k
  110. hacker note Your current directory is the root.
  111. goto l
  112. :k
  113. for %%a in (1 2 3 4 5 6 7 8 9 10 11 12) do if errorlevel %%a set i=%%a
  114. hacker note Your current directory is %i% levels below the root.
  115. :l
  116. echo  
  117. echo  
  118. hacker is dir batch dos misc test
  119. if errorlevel 8 goto m
  120. hacker note Your current directory is not BATCH, DOS, MISC or TEST
  121. goto n
  122. :m
  123. if errorlevel 8 set i=BATCH
  124. if errorlevel 4 set i=DOS
  125. if errorlevel 2 set i=MISC
  126. if errorlevel 1 set i=TEST
  127. hacker note Your current directory is %i%.
  128. :n
  129. hacker wait 3;clear 13;note I can find hidden files.;show hidden>nul
  130. set i=no
  131. if not errorlevel 1 goto p
  132. if errorlevel 14 goto o
  133. for %%a in (1 2 3 4 5 6 7 8 9 10 11 12 13) do if errorlevel %%a set i=%%a
  134. goto p
  135. :o
  136. set i=many
  137. :p
  138. echo  
  139. hacker note You have %i% hidden files in this directory.;wait 5
  140. rem     Let's keep our environment clean, shall we ?
  141. set i=
  142. hacker clear 7;note I can fix files and report other useful information.
  143. echo  
  144. hacker note ...but you will just have to see for yourself.
  145. echo  
  146. hacker ask Aw, heck - one more. Wanna re-boot or clean exit ? {b, c} 8
  147. if errorlevel 2 goto z
  148. if errorlevel 1 goto y
  149. goto z
  150. :y
  151. hacker boot
  152. rem     ╔══════════════════════════════════════════════════════╗
  153. rem     ║         Here are your special characters !           ║
  154. rem     ╚══════════════════════════════════════════════════════╝
  155. rem     The folloing line is 'ECHO', space, space, BACKSPACE
  156. echo  
  157. rem
  158. rem     The folloing line is 'ECHO', space, space, BEEP
  159. echo  
  160. :z
  161. hacker clear 1;note Control of your box will be returned to you.;fix cursor /on>nul
  162. echo  
  163. hacker clear -3;?
  164.